home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc2_x / bruitsam.sit / BRUIT∆SAM 1.0.1 / BRUIT∆SAM / background_2747.xml next >
Extensible Markup Language  |  1991-12-09  |  2KB  |  14 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>2747</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_3602.pbm</bitmap>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_3124.css" />
  11.     <name>Title</name>
  12.     <script>on sectionput word 2 of the clickline into lineNoput word 6 of the clickline into fieldNoput line lineNo of card field fieldNo into findLineif findLine is empty then exit sectionif last char of findLine = "t" thenput card field (word 2 of findLine) into itemListget PopUpMenu(itemList)if it < 1 then put 1 into itput line it of itemList into findLineend iflock screenput word 1 of findLine into findMeset the scroll of card field "item" to zerofind findMe in card field "item"put (top of card field "section" + ((lineNo -1) * (the textHeight of ┬¼card field "section"-3))) + 4  into btnPointset the top of card button "Section-Hilite" to btnPoint--set the hilite of card button "levels-Hilite" to trueunlock screenend sectionon itemput word 2 of the clickline into lineNoput word 6 of the clickline into fieldNoput word 1 of line lineNo of card field fieldNo into sectionNumif sectionNum is empty then exit itemif sectionNum contains "┬╗" then exit itemselect line lineNo of card field fieldNopush cardvisual effect iris opengo card hashSection(sectionNum) of stack "BRUITΓêåSAM Guidelines" ┬¼in a new windowif not(the result is empty) thenanswer "Sorry, could not find that Guideline :-("end ifset the cursor to handend item</script>
  13. </background>
  14.